home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
mcedit10.zip
/
MAGGLASS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-19
|
2KB
|
54 lines
PROCEDURE magglassMouse;
var
magglassmasks : array[0..1,0..15] of word;
Regs : Registers;
BEGIN
{ Screen Mask }
magglassmasks[0,0] := $F83F; {1111100000111111}
magglassmasks[0,1] := $E3CF; {1110001111001111}
magglassmasks[0,2] := $C5F7; {1100010111110111}
magglassmasks[0,3] := $99FB; {1001100111111011}
magglassmasks[0,4] := $BBFB; {1011101111111011}
magglassmasks[0,5] := $BFF3; {1011111111110011}
magglassmasks[0,6] := $BFF3; {1011111111110011}
magglassmasks[0,7] := $DFC7; {1101111111000111}
magglassmasks[0,8] := $E70F; {1110011100001111}
magglassmasks[0,9] := $F83F; {1111100000111111}
magglassmasks[0,10] := $FC7F; {1111110001111111}
magglassmasks[0,11] := $FC7F; {1111110001111111}
magglassmasks[0,12] := $FC7F; {1111110001111111}
magglassmasks[0,13] := $FC7F; {1111110001111111}
magglassmasks[0,14] := $FC7F; {1111110001111111}
magglassmasks[0,15] := $FC7F; {1111110001111111}
{ Cursor Mask }
magglassmasks[1,0] := $0000; {0000000000000000}
magglassmasks[1,1] := $0400; {0000010000000000}
magglassmasks[1,2] := $1A00; {0001101000000000}
magglassmasks[1,3] := $2600; {0010011000000000}
magglassmasks[1,4] := $0400; {0000010000000000}
magglassmasks[1,5] := $0008; {0000000000001000}
magglassmasks[1,6] := $0008; {0000000000001000}
magglassmasks[1,7] := $0030; {0000000000110000}
magglassmasks[1,8] := $00C0; {0000000011000000}
magglassmasks[1,9] := $0000; {0000000000000000}
magglassmasks[1,10] := $0100; {0000000100000000}
magglassmasks[1,11] := $0100; {0000000100000000}
magglassmasks[1,12] := $0100; {0000000100000000}
magglassmasks[1,13] := $0100; {0000000100000000}
magglassmasks[1,14] := $0100; {0000000100000000}
magglassmasks[1,15] := $0000; {0000000000000000}
regs.AX := 9;
regs.BX := 1;
regs.CX := 0;
regs.DX := ofs(magglassmasks);
regs.ES := seg(magglassmasks);
Intr(51,Regs);
end;